home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MOS / MOSGLOBA.I < prev    next >
Encoding:
Modula Implementation  |  1990-09-24  |  900 b   |  17 lines
  1. IMPLEMENTATION MODULE MOSGlobals;
  2. (*$N+,M-,L-*)
  3. (*$Y+*)
  4.  
  5. FROM SYSTEM IMPORT LOC, ASSEMBLER;
  6.  
  7. PROCEDURE MEM (VAR data: LONGARRAY OF LOC): MemArea;
  8.   BEGIN
  9.     ASSEMBLER
  10.         ADDQ.L  #1,-4(A3)       ; HIGH-Wert um 1 erhöhen
  11.     END
  12.   END MEM;
  13.  
  14. END MOSGlobals.
  15. ə
  16. (* $FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$000000A6$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6F$FFFA6F6FÇ$0000005ET.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$000000E9$00000063$000000E9$0000005E$0000000F$FFFB220F$00000100$00000023$00000110$0000002E$00000100$FFF73C02$000000F6$00000063$00000061$000000F6ÉÇÇ*)
  17.